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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR + amma OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


; PETIT iI P tiie iii i iii iii iii iiii iii iiiiiiiiiiiiiiiiisiiiiiiitiiiiiiity 
FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
ABSTRACT: 


The VAX-11 MACRO assembler translate . ne -32 source code into object 
modules for input to the VAX-11 LIN KER 


ENVIRONMENT: USER MODE 
AUTHOR: Benn Schreiber, CREATION DATE: 20-AUG-78 
MODIFIED BY: 


V03-002 MTROO33 Mike Rhodes 22-Ap r=1983 
Allow removal of the blank psect if tt s not referenced. 


v03-001 MTROO31 Mike Rhodes CTtRemp 
Remove obsolete reference to $MAC_TI CMDDEr macro. 


v02.13 PCG0002 Peter George 16-Apr-1981 | 
Set and clear DBGOUT control flag. 


vO2.12 CNHO046 Chris Hume 2-Dec-1980 
Taught P2SERR (and relatives) to respect Parser Value Stack. 


v02.11 CNHO036 Chris Hume 14-Jul-1980 tee 
Closed off some more areas where the assembler was we ising 
object records too long for the Linker. (P2ACT1.MAR 02.08) 
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RNOO29 R. Newland at n-1980 

If error pointer is beyond column 152 do not print a 
pointer. This situation only occurs during macro 
expansions which form a Line longer than 152 


RNOO23 R. Newland 33-Nov-1979 
New =a codes to get error messages from system 
message f 


RNOO19 R. Newland 23-0ct-1979 
Improve error aie positioning 

RNOO13 R. Newland 27-Sep-1979 
Use new symbols for NPSECT options Pree i9799 
RNOO Newland 13-Aug-1979 
Remove .ALIGN LONG statements 

RNOOO2 R. Newland 01-Feb-1979 


Changes for Source Update Rerge form Listing Line 
number differently for updated files, and SUM error 


reporting 

Newland |= 28-Oct-1979 
Correct bist ing of .ENTRY register mask value. 
SPR 11-26384 


0005 B. Schreiber 10-JAN-1979 
Correct record too long error with .PRINT directive. 
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23:9] rob ng Macro V04-00 
9:33 (CMACRO.SRCIJPZ2ACT2.MAR;1 


;DEFINE OBJECT CODE RECORD TYPES 
;DEFINE SYMBOL BLOCK 

;DEFINE CONTROL FLAGS 

;DEFINE COMMON VALUES 

; Define message codes 

: Define SUM control block symbols 


ERROR CODE GETS STORED HERE 
;POINTER TO WHERE ERROR HAPPENED 


MACSP2ACT2 PASS 2 ACTION ROUTINES 16S 
v04=000 DECLARATIONS g-8 
990 89 .SBTTL DECLARATIONS 
290 91 : INCLUDE FILES: 
92 ; 
$000 98 
0000 94; 
9000 95 : MACROS: 
000 3 ; 
0000 ‘9 
0000 «98 SMAC_OBJCODDEF 
0000 99 SMAC~SYMBLKDEF 
9000 100 $MAC~CTLFLGDEF 
000 101 $MAC~GENVALDEF 
0000 108 SMACPSGDEF 
0000 10 DEF SUMCBL 
0000 104 
9000 105 ; 
000 106 : LOCAL DATA 
9000 107: 
00000000 108 .PSECT MACSP2ACT2_DATA,NOEXE,LONG 
0000 109 
0000 110 MACSGL_P2_ERRPT:: 
00000000 0 111 .CONG §60 
00000000 0004 118 "LONG 0 
00000000 114 


-PSECT MACS$RO_CODE_P2,NOWRT,GBL,LONG 


Pp MAC 
mae * . 
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MACSP2ACT2 PASS 2 ACTION ROUTINE 
M05 2050 PASS g COMMANDS FOR P =SEP-1984 MACRO.SRC CT2.MAR;1 (3) v04 
209 116 -SBTTL PASS 2 COMMANDS FOR PC 
0 o 18 p++ 
38 6 3 FUNCTIONAL DESCRIPTION: 
2098 1; THIS ROUTINE STACKS THE CURRENT PC ON THE LINKER'S STACK. 
000 «61 : i-- 
0000 124 
444 125 P2SSTKPC:: 
000 1 § $084 CHKBYT Aste STA_PL ;COMMAND IS STACK PSECT BASE PLUS OFFSET 
0000'CF bp 8806 1 SHC _PSECT™ ‘PREPARE TO EMIT THE PSECT NUMBER 
OA 1 O0OA 128 Bear Tos sDON T FIDDLE WITH THE ApS PSECT! 
07 €0 000C 1¢3 BBS #SYMSV THE BLANK PSECT HASN'T BEEN REF 'D 
02 00000009'EF OO00E 130 PSECTSOLANK*SYMSU_ FLAG, 168 ;1T' LL off REMOVED SO DECR THE PSECT 
6— D7 0014 = 131 DECL (SP) NUMBER TO PRESERVE ALIGNMENT. 
0016 13 10$: $08J -OUTBYT 0 (SP) TEMIT PSECT N UMBE 
8E D5 0019 13 STL” (SPY+ + AND CLEAN UP THE STACK. 
55 OO00'CF 9EF O01IB 134 novas W*MACSGL_PC,R5 :POINT TO P 
0020 135 $SVPUSH (RS) ‘PUSH ONTO MY "LINKER STACK' 
0028 136 
0028 137 ;++ 
bn56 138 ; FUNCTIONAL DESCRIPTION: 
sit 177 : THIS ROUTINE EMITS 4 BYTES TO THE OBJECT FILE. 
0028 166 ; INPUTS: 
0028 143; 
0028 144; aS POINTS TO 4 BYTES TO OUTPUT 
0028 145; 
0028 146 ;:-- 
0028 147 
0028 148 MACSOUT_L 
54 046 9A 0028 149 “ROVZBL :SET UP COUNTER 
00¢8 150 10$ $OBJ Gutayf. (R5)+ [SEND A BYTE 
F754 F5 0031 151 SOBGTR ,10$ ‘LOOP FOR FOUR 
05 0034 £42152 RSB 
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v04-000 PASS 5 COMMANDS FOR PC ~SEP=1984 §F: 25:95 EMACRO SROSPSACT2.MAR: 1 - dh 
0 154 ; ++ 
9 5 : FUNCTIONAL DESCRIPTION: 
0 1 “ : THIS ROUTINE AUGMENTS THE PC. THE PARAMETER PASSED IS THE 
0 138 : VALUE TO ADD TO THE CURRENT PC. 
; 2 + ; INPUTS: 
035 16¢ : RB POINTS TO LONGWORD VALUE TO ADD TO PC 
0035 163: 
0035 164 ;-- 
90 5 «165 
035 166 P2$AUGPC:: 
FFC8* 30 0035 167 BSBW MACS$SET_PC ;RECORD PC 
0000'CF 68 £0 0038 168 ADDL2 (RB) W*RACSGL _PC ZADJUST P 
cO' 30 003D 169 BSBW  MACSSET PC RECORD NEW PC 
50 O000'CF D0 0040 170 MOVL UARACSGL PSEC RO GET POINTER TO CURRENT PSECT 
0C OD AO) (03) «6©E1 «0065~—=*177 BBC #PSCSV_REL, eccsu. SPTIONS(RO). 108 ;BRANCH IF NOT RELOCATABLE 
006A 172 $08. _CHKBYT PTTRSE. “CTL_AOGRE =; YES“=A UGMENT RELOCATION PA SE 
55 58 pO 0051 173 RB,R POINT AT VALUE TO OUT 
D2 11 «0054~=s «17% Bree MACSOUT LW ‘BRANCH TO OUTPUT LONGUDRD PC AUGMENTATION 
05 0056 175 10%: RSB 
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vOLs000 STORE DATA FROM LINKER STACK ~3Ep=198e 84:29:93 (MACRO. SRC P2ACT2.MAR; 1 ’ (8) v04 
af 177 ~SBTTL STORE DATA FROM LINKER STACK 
57 155 p++ 
037 0 : FUNCTIONAL DESCRIPTION: 
057 1 ¢ ; THESE ROUTINES, P2$STOB,P2$STOW,P2$SPID,P2$STOL,P2$STOV, 
O37 183 ; P2$STSB, AND P wW 
57 184; ALL STORE SIGNED DATA FROM THE LINKER STACK INTO THE OBJECT 
0057 185; FILE. 
0057 196 ; 
0057 187 ;-- 
0087 189 
7 189 P2$STSB:: ;STORE SIGNED BYTE 
0057 190 $OBJ_CHKBYT #TIRSC_STO_SB ;STORE SIGNED BYTE COMMAND 
06 11 0050 131 BRB BYT_COM 7G0 DO COMMON BYTE PROCESSING 
O05F 198 P2$STOB:: ;STORE BYTE 
OOSF 194 $OBJ_CHKBYT #TIRSC_STO_B ;STORE BYTE COMMAND 
0065 195 BYT_COM: 
01 DD 0065 196 PUSHL # ;STACK COUNT OF BYTES 
38 §=6©10 0067 197 BSBB__—sSTO_COM :GO TO COMMON COD 
00000002" aie e4 138 «ADDRESS MACSAB_LST_END+2 ;NEW LINE IF PAST HERE 
006D 200 P2$sTSw:: ;STORE SIGNED WORD 
006D 201 $OBJ_CHKBYT #TIRSC_STO_SW ;STORE SIGNED WORD COMMAND 
06 11 0073 20¢ BRE WORD_COM ;D0 COMMON WORD PROCESSING 
0075 204 PZ$sTow:: ;STORE WORD 
0075 205 $OBJ_CHKBYT #TIRSC_STO_W ;STORE WORD COMMAND 
0078 206 WORD_COM: 
02 od 0078 207 PUSHL #2 ;STACK COUNT OF BYTES 
22. 10 007D 208 BSBB- —STO_COM :GO TO COMMON COD 
00000004 ' 007F 209 -ADDRESS MACSAB_LST_END+4 ;NEW LINE IF PAST HERE 
0083 211 P2$SPID:: ;STORE PIC ADDRESS 
0083 12 $OBJ_CHKBYT #TIRSC_STO_PIDR ;STORE PIC DATA REF 
OF 11 0089 21 BRE P2_LONG 
0088 214 
0088 215 P2$STOL:: ;STORE LONGWORD 
0088 216 $OBJ_CHKBYT #TIRSC_STO_LW ;STORE LONGWORD COMMAND 
06 11 0091 217 BRE P2_LONG 
0093 218 
0093 219 P2$STOV:: sSTORE FIELD 
009 30 $OBJ_CHKBYT #TIRSC_STO_VPS ;STORE FIELD COMMAND 
099 1 P2_LONG: 
04 dd 0099 3¢ PUSHL #4 ;STACK COUNT OF BYTES 
04 10 0098 22 BSBB-—sSTO_COM :GO TO COMMON CODE 
00000008' 909 $3 -ADDRESS MACSAB_LST_END+8 ;NEW LINE IF PAST HERE 
OA1 $ STO_COM: var 
50 4 DO QOA1 MOVL a(SP)+,RO ; Get Line Limit (and clear stack) 
07 68 ‘ E1 QOA4 8 BBC #FLGSV_UPDFIL,(R11),5$ ; Branch if file is not being updated 
50 00000000'8F CO OAg ; a ADDL2 #<MACSAB_LST_OP2-MACS$AB_LST_END>,RO ; Reserve space for audit 
50 O000'CF 01 OOAF 1 CMPL W*MACSGL_LIST_PTR,RO  ;TIME FOR NEW LINE? 
1 0B4 ¢ BGEQU 10% :1F GEQ N 
O37F 30 0086 BSBW = P2 SFNEWL ;YES--FORCE NEW LINE 
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Hveet STORE REPEATED DATA “SEP-1984 $325 :93 UMACRO. SRCIPSACTS.MAR: 1 ° 
Bb¢ -SBTTL STORE REPEATED DATA 
C p++ 
n ; FUNCTIONAL DESCRIPTION: 
bee : THESE ROUTINES, P2$STRB, P2$STRW, P2$STRL, P2$STRSB, AND 
0cs 3 PessTRsu STORE REPEATED DATA FROM THE LINKER STACK [NTO THE 
00C5 3 OBJECT FILE. 
00c5 3 
00c5 ;-- 
00c5 
Ooce P2$STRSB:: STORE REPEATED SIGNED BYTE 
0c $0BJ_CHKBYT #TIRSC_STO_RSB ;STORE REPEATED SIGNED BYTE COMMMAND 
06 11 boc BRS STRB_COM JOIN COMMON CODE 
00CD P2$STRB STORE REPEATED BYTE 
BOCp 2 STRB_COM. “$08, _CHKBYT #TIRSC_STO_RB ‘STORE REPEATED BYTE COMMAND 
0002'CF 9F 00 ; g PUSHAB UrRACSAB _LST_END+2 STACK END OF LINE MARKER 
7E 01 90 O0D7 2 MOVB #1, :AND COUNT OF BYTES TO LIST PER VALUE 
24—SCid111 99 A é BRB STO. LooP 
00DC é P2$STRSW: STORE REPEATED SIGNED WORD 
00DC $0B, _CHKBYT #TIRSC_STO_RSW SSTORE REPEATED SIGN WORD COMMAND 
06 11 90 é é BRB STRW_COM JOIN COMMON CODE 
00E4 265 P2$STRW:: STORE REPEATED WORD 
90 1 é stay. como’ CHKBYT #TIRSC_STO_RW STORE REPEATED WORD COMMAND 
0004'CF 9F OOEA 2 PUSHAB WOMACSAB _LST_END+4 STACK END OF LINE MARKER 
7E 02 90 OOEE 2 MOVB #2,-(SP) ;STACK COUNT OF BYTES TO LIST PER VALUE 
OD 11 OOF1 é BRB $T0_LOOP 
OOF3 
0 ; 2 
00 2 
OOF9 2 
OOFD 2 
ie 
. 2 
> 2 


WOOO O00 000000 09 090009 09 09 SI NINN NSS NS NN PAA AAA AAAAMMIMIMIUI II SSE SLE LLL LEA OC 
WI OOO NOAU EWN 0 OD NAME WIN 0 OONAU EWN CO OONAUE WN OUOONOUS WhO” 


:$TO 
$08 CHKBYT #TIRSC_STO_RL :STORE REPEATED LONGWORD COMMAND 
O008'CF OF PUSHAB W*MACSA a8 _LST_END+8 sSTACK END OF LINE MARKER 
7E 04 90 00 MOVB #4, At SPS :STACK COUNT oF BYTES TO LIST PER VALUE 
019 STO_LOOP: 
01 SVPOP R6 :GET REPEAT COUNT 
56 D5 0108 TSTL = R6 > CHECK REPEAT COUNT 
32 13 O10A EQ. 4 =s_«-30$ s1F EQL ALL DONE 
ot C $VPOP =(SP) :GET VALUE OFF VALUE STACK 
0S AE OO000'CF D1 0114 10$: CMPL W*MACSGL_LIST_PTR,5(SP) ;TIME FOR NEW LINE? 
03 1& OTA BGEQU s1F GEQU NO 
0319 30 O11C BSBW = P2SFNEWL -YES=-FORCE NEW LINE 
0000'o9F 27 90 O11F 208: MOVB #*A/'/,aW*MACSGL_LIST_PTR ;STORE QUOTE IN LISTING 
4 4 SVPUSH (S sSTACK THE VALUE on VALUE STACK 
55 Q000'CF47 DE O12¢ MOVAL W*MACSAL VALSTACKLR71 »RS:POINT RS 10 TOP OF VALUE STACK 
1 é SRACL List BYTE 4TSP [LIST THE VALUE 
D8 56 «FS: «(O01 SOBGTR R6,10$ SLOOP FOR Att BYTES 
BE D5 013¢ TSTL (36) )+ [CLEAR SAVE VALUE FROM STACK 
SE 0 C0 13 30$: aboL2 #5,SP :CLEAR BYTE AND LONGWORD FROM STACK 
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yee oe : STORE IMMEDIATE DATA -SEP=1984 SL ERACRO SROIPSACT2.MAR: 1 won 
14 95 .SBTTL STORE IMMEDIATE DATA 
ae 
14 98 : FUNCTIONAL DESCRIPTION: 
14 0 ; THIS ROUTINE STORES A BYTE OF DATA INTO THE OBJECT CODE 
re ie ae 
14 04 P2$STIB:: | 
50 0002'CF 9 14 05 MOVAB W*MACSAB_LST_END+2,RO  ;SET ADDRESS TO CHECK | 
5D 610 «(014 6 BSBB K_NWL :SEE IF TIME FOR NEW LINE AND FORCE IF NEEDE | 
50 68 9A 0149 MOVZBL (RB) ,RO ‘GET THE DATA BYTE | 
014C¢ 8 SVPUSH RO STACK IT 
85 DS 0154 309 TSTL  (RS)+ :KEEP R5 POINTING TO TOP OF STACK 
FEA?’ 30 0156 310 BSBW  MACSCK_BYT_TRUN [CHECK FOR TRUNCATION 
50 68 90 0159 311 MOVB = (R :GET THE BYTE VALUE 
FEAI' 30 015¢ 1g BSBW MACS$STOIM :STORE INTO OBJECT CODE 
O15F 31 SMAC_LIST_BYTE #1 ‘LIST BYTE FROM STACK | 
: 05 0165 314 RSB EXIT 
Be a ae : oN 
0166 iL t FUNCTIONAL DESCRIPTION: 
0166 «319: THIS ROUTINE STORES A WORD INTO THE OBJECT CODE 
0166 st ; 
o1e6 352° | 
0166 $¢ P2SSTIW:: 
50 O0006'CF 9E 0166 324 MOVAB W*MACSAB_LST_END+4,RO ;GET ADDRESS TO CHECK 
39 10 0168 325 SBB. ss CK_NWL 'SEE IF TIME FOR NEW LINE 
016D 326 SVPUSH (RB) sSTACK VALUE 
85 DS 0175 327 TSTL  (R5)+ :KEEP RS POINTING TO TOP OF STACK | 
FEB6" 30 0177 328 BSBW MACSCK_WRD_TRUN [CHECK FOR TRUNCATION | 
53 02 9A OI7A 329 MOVZBL #2,R3 'SET TO STORE TWO BYTES | 
14 11 017D 0 BRB STO_DAT :STORE WORD AND RETURN | 
SITE 332 se 
17 338 t FUNCTIONAL DESCRIPTION: 
O17 335 : THIS ROUTINE STORES A LONGWORD INTO THE OBJECT CODE 
O17F 37 j-- 
50 O008'CF 9 art 3 tie W°MACSAB_LST_END+8,RO  ;:GET ADDRESS TO CHECK 
50 5 184 341 a hae ae ; [SEE IF TIME FOR A NEW LINE 
186 43 SVPUSH (RB) SSTACK VALUE 
85 D5 18 4 TL = (R5) + :KEEP RS POINTING TO TOP OF STACK 
53 04 OA Hi 4 ie par :Movzal #4,R3 [SET TO STORE 4 BYTES 
54 53 DO 019 46 ~"MOVL ~—s RB, R4 :REMEMBER THE BYTE COUNT 
50 88 90 196 47 10$:  MOVB  (R&)+,RO [GET A BYTE 
a eee a RRB AAT, gee coe 
: 19F 50 SMAC_LIST_BYTE R3 ‘LIST BYTES FROM STACK 
05 O1A5S 351 RSB 
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YOs000 STORE IMMEDIATE DATA Breer bbe 01:29:45 FMACKO SRETPSAL TS aR: 1 er. 2, 
i, : j++ 
A 4 t FUNCTIONAL DESCRIPTION: 
1A 6 : THIS ROUTINE i$ CALLED BY THE STORE IMMEDIATE ROUTINES TO 
1A ; SEE IF IT IS TIME FOR A NEW LISTING LINE. 
1A6 53 > INPUTS: 
1A 61 : RO BOTTOM ADDRESS WE CAN GO TO 
0146 és ; OUTPUTS: 
O1A6 65 : NEW LINE IF NOT GEQU RO. 
1A6 06 ; 
3148 6/7 3° 
Oiae $69 CK.NUL: 
50 0000" cr pt 146 70 Pig CHL W°MACS$GL_!.IST_PTR,RO TIME FOR A NEW LINE? 
0288 31 O1AD es BRW P2SFNEWL SYES=-FORCE NEW LINE AND RETURN 
05 0180 373 108:  RSB JUST RETURN 
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~SBTTL PSECT ACTION ROUTINES 


+ 
FUNCTIONAL DESCRIPTION: 


ED TO DEFINE A NEW PSECT DURING PASS 2. 
THE PREVIOUS OBJECT RECORD IS WRITTEIN, AND A GSD RECORD 
UTPUT CONTAINING THE PSECT DEFINITION. THE RECORD 
TYPE IS THEN RESET TO TIR. 
MOVL (RB), R6 :POINT TO PSECT DEFINITION BLOCK 
CMPB =—s- PSC $B_ SEG(R6), 1S THIS THE BLANK PSECT? 
BNEQ 5$ ANCH IF NOT. 
BBC #SYMSV_REF, Pst Su epee 50S -IF IT'S NOT REFERENCED REMOVE IT. 
BBSS § #FLG$V“DBGOUT,(RT1),.+1 ;SET DEBUGGER RECORD FLAG 
MOVZBL #O0BJ$C~GSD, UAMACSGL” -RECTYP :SET GSD RECORD TYP 
BSBW  MACSWRTOBJ WRITE PREVIOUS RECORD 
$0BJ _OUTBYT_0 #0B$¢ GSD_PSC PSECT DEFINITION RECORD 
ExTz0 opetey ALIGNAENT. T EXTRACT ALIGNMENT FIELD 

Pscsu SaptteNcenas. RO 
$0BJ_OUTBYT_O~RO ;OUTPUT ALIGNMENT 
$OBJ"OUTBYT~0 PSC$W_OPTIONS(R6) OUTPUT LOW BYTE OF FLAGS 
B1¢B3 gcenscen ACLOPTNS@-8>,- ; Get remaining option bits 

PSC$ OPTIONS+1 (RO) OR RO 
$08 ouTBYT 6” 80 sEMIT HI BYTE OF FLAGS 


#PSCSV_REL,PSCS$W_OPTIONS(R6), 108 ;BRANCH IF RELOCATABLE PSECT 
PSC$L_MAXLGTH(R6) ;ABSOLUTE=-CLEAR MAX LENGTH 


CLRL 
MOVAB PSCS$L~ MAXLGTH(RO) , R5 aay a TO MAX LENGTH 
BSBW MACSOOT LW ;OUTP 1 oe eee TO OBJECT CODE 


MACSSYMRAM 


BSBW AMOUT ;0U TPUT PSECT 
MOVZBL #OBJSC_TIR,W*MACSGL _RECTYP + RECORD TYP 
BSBW RTOB 


—E TO TIR 
:WRITE O T PSECT DEFINITION RECORD 
TIVE ZERO 


MACSW J 
CLRL PSCEL MAXLGTH(R6) : START AY RELA 
pect #FLG$0_DBGOUT,(R11),.+1 ;CLEAR DEBUGGER RECORD FLAG 


rasan PASS ; on Roy 3 .* 1 ~360=1 386 ee a mares Bescg 03-00 Page 


ACTI TINES 
CHANGE PSECT / RESTORE PSECT FROM STACK SEP=19 MACRO. SRCJPZACT2.MAR; 1 
415 .SBTTL CHANGE PSECT / RESTORE PSECT FROM STACK 
219 3 ++ 
418 : FUNCTIONAL DESCRIPTION: 
420 : THIS ROUTINE Is CALLED TO CHANGE PSECTS OR TO RESTORE A PSECT 
421 : FROM THE PSECT STACK. CODE IS EMITTED TO THE OBJECT FILE TO 
6 4 é : INFORM THE LINKER OF THE NEW PSECT 
? ? ¢ ;-- 
06 4 6 P2SPSECT:: 
FDF7" 30 4 BSBW MACSSET_PC ;RECORD PC 
56 68 DO 0209 428 MOVL  (RB),R6™ ‘PICK UP POINTER TO PSECT BLOCK 
53 0000'°CF 44 0C 429 MOVAB W*MA hese ‘POINT TO PC WORD 
63 05 A6 D 11. 430 MOVL Psc$L “RANT GHC) (R3) SET NEW PC 
OF 11 0 13 431 BRB PSECT-REST SJOIN COMMON CODE 
0 7 638 P2$REST 
FDE6’ 30 0217 435 BSBW MACSSET_PC : RECORD PC 
6 68 00 OeiA 436 MOVL  (RB),R6™ PICK UP POINTER TO PSECT BLOCK 
53 O000'CF 9& O021D 437 MOVAB W*MACSGL_PC,R3 :POINI To PC WORD 
3 OF AB 00 Bs¢¢ $38 senet watt PSC$L sPURLOC (ROD, (R3) SET N 
Q000'CF OC AB 9A 02 6 440 “ PSC$B_SEG(R6) ,W*MACSGL_PSECT ;SET NEW PSECT NUMBER 
O000'CF 56 DO O22C 441 R W°MACSGL_PSECTPTR ~ ;SET POINTER TO NEW PSECT 
03 0D A6 «4003~=«C E0023 44g BB C$V_REL :IF REL PSECT THEN CONTINUE 
0236 44 pscse VER TTONS(R6). 3$ 
0090 31 0236 444 BRW 40$ ZELSE ABS PSECT SO SKIP 
239 «445 3S: SVPUSH (R3) ‘PUSH NEW PC ONTO VALUE STACK 
00 6B OC €3 31 446 BBCS #FLGSV_MEBLST,(R11),5$ ENSURE DIRECTIVE GETS LISTED 
55 046 9A 0245 447 5S: MOVZBL #4,R5 SASSUME LONGWORD OFFSET 
54 06) «9A «(0248 «=| 448 MOVZBL #TIRSC_STA_PL,R4 Pe 
02 a3. BS 0 4B 449 TSTw  2¢R3) [HIGH WORD OF PC ZERO? 
19 12 O24€ 450 BNEQ 10$ :IF NEQ NO 
63 BS 0250 451 TSTW = (R3) SYES=-LOW WORD POSITIVE? 
15 19 025 43¢ BLSS 108 SIF LSS 
55 02 9A 0254 45 MOVZBL #2,R5 SYES--OPTIMIZE TO WORD 
54 05) o9A 0397 454 MOVZBL #TIRSC_STA_PW.R4 os 
01 AS % 6 3A 435 ist 1¢R3) :H1GH BYTE OF LOW WORD ZERO? 
63 95 025F 439 TSTB (Rs) SYES=-LOW BYTE POSITIVE? 
06 19 6 438 BLSS 108 ZIP L 
55 01 9A 0263 4 wOVZBL #1 RS ;YES=-OPTIMIZE TO BYTE 
54 04S 66 460 OvzBt #TIRSC_STA_PB,R4 
69 461 10S: soBlt HKBYT R4™ ‘OUTPUT COMMAND 
7E OC A6 9A of 46¢ MOVZBL P9CSB_ SEG(R6) ,-(SP) : PREPARE TO EMIT THE PSECT NUMBER. 
OA 13 46 BEQL  ~=«-:-15$ DON'T FIDDLE WITH THE ABS PSECT! 
07 €0 0275 464 BES” #SYMSV ilF 1 HE BLANK PSECT HASN'T BEEN REF'D 
02 00000009" EF 77 465 PSEC TSEL ANK*SYMSW_ FLAG, 15$ ;IT ut BE REMOVED, SO DECR THE PSECT 
6E 07 027D 466 DECL (3p ;NUMBER TO PRESERVE ALIGNMENT 
7F 467 15$:  $0BJ_OUTBYT 0 (SP) OUTPUT PSECT NUMBER 
BE D5 2 468 STL” AND CLEAN UP THE STACK. 
FASS FS 0587 490 oo SOBA PDUTBYT.R (RS) ¢ OOP EFOR ALL BYTES 
A 471 $OBJ_CHKBYT #TIRSC_CTL_SETRB ‘SET RECOCAT ION BASE COMMAND 


L 2 
MACSP2ACT2 PASS 2 ACTION ROUTINES 16-SEP-1984 02:21: AX/VMS Macro V04-00 Page 
MOE p60 rAssce PSECT / RESTORE PSECT FROM STACK g- SEF 3b 84:25:98 YRACRO SRCIPSACTS. MAR: 1 . 
4 04 9A 0291 47 MOVZBL SUME FULL PC VALUE 
0000' &F Soo 81 34 cfs CHP S AACSGL _PSECTPTR, wesectiBL ANB BLANK PSECT? 
0000' CF 08 3B 475 TSTL  W*MACSGL_PC :YES==AND IS PC ZERO? 
1 Al 47 BNE s. iT EQ NO 
54 02 9A O2A3 47 MOVZBL "YES=-LIST WORD ONL 
55 0000'CF DE 026 478 30$:  MOVAL UAACSAL -VALSTACKER7],R5° {POINT R5 TO TOP br VALUE STACK 
0000'cr OO0O0'CF SE OeAC 47 MOVAB _W*MACSAB-SEG_NUM,W* MACSGL LIST_PTR ;POINT TO WHERE PC GOES 
BS 480 $MAC_LIST_BYTE R& TP 
B9 481 SDEC“PC RZ ‘WE REALLY “Pon T WANT TO INC PC FOR THAT 
02 54 91 OBE 4 é CMPB~  R4, #2 i SHORT FORM PC? 
12 O2ci 4 BNEQ tIF NEQ NO 
50 9A C 484 MOVZBL #*A/ /,RO tYES==LIST A SPACE 
FD37' 30 C6 485 BSBW MACSLST_CHAR ecos 
05 0269 486 40$: RSB 
O2CA 487 
O2CA 488 ;++ 
0 cA 489 : FUNCTIONAL DESCRIPTION: 
O2CA 491: THIS ROUTINE IS CALLED TO PROCESS A .SAVE DIRECTIVE IN PASS 2. 
¥ CA 49¢ : THE CURRENT PC IS RECORDED IN THE PSECT BLOCK. 
CA 493; 
O2CA 494 ;-- 
O2CA 495 
O2CA 496 P2$SAVE:: 
50 68 DO O2CA 497 MOVL OINT {° PSECT BLOCK 
OF AO O0000'CF DO 0 cD 498 MOVL seek ese PC,PSCS$L curtociRros -SAVE PC IN PSECT BLOCK 
00 68 OC £2 0203 499 BBSS §§ #FLG$V_MEBLST,(R1T),10$ ; ENSURE DIRECTIVE GETS LISTED 
05 0207 300 10$:  RSB 
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BB FEA WANA AIA IDIDINIDN 2 2 | SQOOOCO BMW RWMWMMMMMMoOCOCVVVVVTVVTVTVTTSO oF 
FNP DW DW WWW WWW WD OMIM NHL MD NUWMNVIO F OWHKM MM OL OF OAWOS WMOccccpcpapanananpgn 


SOOOOOOOCOCOCOOCOOCOOCSO COSCO OCOCSOSCOCOSOCOS COCO OCOCSCOCOOCOOOOOOOOOOOOOOOO 


HAAA. AAA NAAN AN AAAANIA AAAI AAAI AAAI WII nnn 


ONS "S$EP=1986 01:49:55 EMACRO: SRCSPSACTS MAR; 1 


-SBTTL ENTRY POINT DEFINITIONS 


;++ 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE PROCE 
A GSD RECORD IS OU 
EPT DEFINITION. 


P2SEPT:: 


“MOVZBL #OBJSC_GSD,W*MACSGL_RECTYP ;NEXT oe cone IS GSD 
B MA 7 WR OUT tg MEN RECORD 
$08) “SUTBYT #OBJSC_GSD_EPM ;ENTRY POINT MASK 
re ey 3D TYPE 
GET ID tae ie 


A asinst ,RO SET DEFINED FLAG 
BBS SYMSV~ “ABS: ;SYMSW_ FLAG(ROS , tos BRANCH tf ABSOLUTE 
B1SB2 aster REL.R NO--SET RELOCATABLE 

10$: BBC SYMSV-WEAK, SYMSW_ FLAG(RA) 308 ; BRA th IF NOT WEAK 
B1SB2 ae YMSt WEAK. RO 7 YES==MARK 

20$: $0BJ_OUTBY 1. ae SEMIT FLAGS (LOW BYTE) 
$0BJ~OUT IT FLAGS ) 


BYT 0 #0 EMIT F (HI BYTE 
mov26L synse. SEG(R6), =(SP) :DON TF TO EMIT THE PSECT NUMBER. 


BBS #SYMSV THE BLANK psecT HASN'T BEEN REF 'D 
PSECTSBLANKsSYRSU_ FLAG, 368 ;IT'LL BE REMOVED, SO DECR THE PSECT 
DECL NUMBER TO PRESERVE THE ALIGNMENT. 
30$: $08, _outeyt 0 (SP) OUTPUT SEGMENT # 
(SPJ+ > CLEAN UP THE STACK. 
mova 4B SYMSL VAL (RG) JRS POINT TO VALUE 
BSBW MACSOOT SEMIT LONGWORD VALUE 
$0BJ _oureri. tR iv ; STORE ENTRY MASK 
$0BJ-OUTBYT— CRB) 
BSBW MACSSYMNAMOUT ‘Em iT SYMBOL NAME 
MOVZBL at tah mR. W°MACSGL_RECTYP ;NEXT RECORD IS TIR 
OVZBL #2,R0 ~ : Set to List 2 bytes 
BSBW MACSLI ; List two bytes from value stack 
SOB) _ourayt rate ie $0. W : Store word from Linker stack 
BRW W*MACSWRTOBJ WRITE “our GSD AND RETURN 


;++ 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE EMITS CODE TO THE a FILE FOR THE LINKER 
TO STACK THE ENTRY-POINT MASK FOR A SYMBOL. 


P2S$STKEPT: 
$08, _CHKBYT #TIRSC_STA_EPM 7STACK ENTRY POINT MASK 
MOVL™  (RB)+ ;GET ID POINTER 
eet MACSSYMNAMOUT ;SEND SYMBOL NAME 
#0 STACK O (WE DON'T KNOW VALUE) 


$VPU 
RB 


MACSP2ACT2 PA 
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~SBTTL PROCESS ASSIGNMENT STATEMENT 


m 
n 
2x 


COOCOCCCOCOCCOCCOCOSCOCOOBOCOOCOOOCOOOOOOOO “Ty 


WAWAWNAAW NAAN AAAN AANA AAI NIWANIOIWNI 


DPRRQELXQ_DQLXARLEAXA AAA AAA DA nner 


+ 
FUNCTIONAL DESCRIPTION: 


} 
| 
THIS ROUTINE PROCESS 4d} we pd STATEMENTS DURING PASS 2. 
THE SYMBOL BLOCK IS UPDATED FROM THE INTERMEDIATE FILE 


Be Se Oe Se ee te ee 
# +> 
4 


P2SASN:: | 
MOVL +,RO 3GET POINTER 10 SYMBOL BLOCK 
+, SYM$B_SEG(RO) sue ATE econ ENT | 
+, SYM$L-VAL(RO) [UPDATE VALUE 
ils $yma0L  RELOCATABLE? 


BN I] 
BI sw2 #SYMSM_ABS, SYMSW_FLAG(ROS INOS=MAKE ABSOLUTE 
BI CW2 #SYMSM_ABS,SYMSW_FLAG(RO) ;YES--MAKE RELOCATABLE 


oo 
Vir 
>ru' 
ooo 


09 AO 
09 AO 


OOO Mac 
OfOC @MM@o#e# 
or-r—-oTv 007 

= 

o 

< 

" 
Maen nnn 
OouMownwnwzD 


WP —-WMMOOO 


UnCTIONAL DESCRIPTION: 


; THIS ROUTINE PROCESSES THE NEWLINE COMMAND. THE LINE NUMBER 
: PASSED IS MERELY STORED IN ‘MACSGL_P2_LINE’ 


P2SNEWL: : 
7? Na (RB) ,W*MACSGL_P2_LINE ;RECORD THE LINE NUMBER 


QOOO'CF 68 


DPUPVIVIVUIVIVIVSPUDUSVIVSIVSIUSUSVSVSVSVSUIISISVSVSVSUSISIOSUSIISIINSIIS «= CE 
3©OO.09.09 00 00 09 09 CD 09 09 09 SI NIN SINISE NS IOPAOAOAOAOOnm 


OOO NOA NE WIN CO OD NOUS WIN O OONIO NEW O 


ow 
win 
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1052050 ALIGN SOURCE AND LISTING ae ae ts be 25:9 YRACRO SROSPSACT2SMAR: 1 . 18), 
? 95 .SBTTL ALIGN SOURCE AND LISTING 
7 95 +4 
4 38 ; FUNCTIONAL DESCRIPTION: 
0 7 98 : THIS ROUTINE ALIGNS THE LISTING FIL é WITH THE SOURCE FILE. 
? 99 : SOURCE LINES ARE READ AND WRITTEN UNTIL MACSGL_LINENUM IS 
0370 600; CAUGHT UP WITH MACSGL_P2_LINE. 
0370 601: 
0370 60¢ i-- 
0370 60 
0370 604 P2SCHKL 
03 68 0B 5 70 605 BBCC #FLGSY MACL,(R11),10$ | ;MACRO LINE PRESENT (AND CLEAR FLAG)? 
OOAS 30 0374 606 SBW  DUMP_MACR RO : vES --COPY INTO LINEBF 
CF DD 0377 607 108: PUSHL U'MACSGL AVE LISTING FL AG 
F D1 0378 608 20S: CMPL  W*MACSGL~ “5 STINE. wenacsct- LINENUM : ARE te CAUGHT UP? 
6. 6 ge 609 BLEQ 0 LEQ YES 
E 00 0384 610 MOVL (SP) -WeMACSGL_ LIST_IT ;NO==$ ET YT TSTING FLAG 
FC74" 30 0389 611 BSBW MACSWRILST “WRITE CURRENT LINE 
FC71" 30 O38C 612 BSBW MACSGETLIN :GET NEXT LIN 
B €5 O38F 61 BBCC = #FLG$V MACLTB, (R11) .258 NO TEXT IN MACRO BUFFER 
O000'CF DD 0393 614 25$: PUSHL W*MACSGL_LIST PTR TSAVE LINE POINTER 
10 0397 615 B36 MACSFORM_LINENO : Form Line no, audit trail 
O000'CF BEDO 0399 616 POPL W*MACSGL“LIST_PTR SRESTORE POINTER 
DBO O39 617 BRB 20$ SLOOP TILL WE CATCH UP 
BE dS 3A0 618 40$: TSTL (SP)+ sKEEP STACK CLEAN 
05 O3A2 619 RSB 


0000' 

oooo"cr —0000"¢ 

O000'CF 6 

? 

(7 

1 
| 
| 


——--—  —- 


| 
MACSP2ACT re 
“Wos-000 °° FOR 


co 


PAPAS AAAAAAAA AOA OAAO a~ 
DO 
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AND AUDIT TRAIL 823 p=198c 89:29:95 MACRO. SRCIP2ACT2 MAR; 1 3 (13) 


~-SBTTL FORM LINE NUMBER AND AUDIT TRAIL 


it 
aon! 


p++ 
; Functional description: 


: This routine forms the Line number and audit trail of the 
3 current Line 


MACSFORM_LINENO: : 
MOVAB se LIN-1, - ; Point to where Line number goes 


QOOO'CF FFFF'CF 9€ AB_LST 
W*MACSGL LIST PTR 


50 QOOO'CF  3C MOVZWL W*MACSGWILST_CINE,RO ; Get Listing Line number 
56 QOOO'CF ODE MOVAL W*MACSGT SCB,R6 ; Set pointer to SUM control biock 

05 68 6s E1 #FLGSV_UPDFIL,(R11),10$ ; Branch if file is not being updated 
19 1C A6 ak BBS #SUM_V_SRCUPD ; Brancn if Line is from update file 


R o 
SUM_6_FLAGS(R6) ,20$ 
10$: 


DOWDOOrrrrrrrrrrrrrrr Zz», 


WWW D A $9 POD LS -0 PUNO T FSO DL ™ PS PNW 


SB PAA AANIinonoroneporornonen) 


WO OONOAU EWN" OOONOUS wr MD 


OOOO OCOCOQVOOCCOCOCCOOCOCOOOOOOOCOCOOOCOOOOCOCOCOOO rr 


WNAWAWNAWAW NAA NAIAAAANNWNANANA AWA AANA 


FC40" 30 BSBW = =MACSDEC_OUT R2L ; Output to Listing tals, : 
2—E 1C AB «2O04SsC*ES C BBCC #SUM_V_BELETE, - ; Branch if no deleted Line information 
C SUM _B_FLAGS(R6) , 30$ : ; 
51 QOOO'CF 9E C 4 MOVAB W*MACSAB_LST_END,R1 ; Set pointer to start of Line 
81 2D «690 C 644 MOVB #*A/~/,(R1)+ : Insert ‘-' ‘ 
50 «1A AG Hs C 645 MOVZWL SUM W INSERT_NO(R6),RO : Get number of Lines deleted 
Fc2c’ 30 D 646 BSBW MACSDEC_OuT_C2x ; Output to Listing 
1D Oo D 647 BRB 30$ 
D 648 208: 
50 1A A6 HS D 649 MOVZWL SUM W INSERT _NO(R6),RO ; Get insert number 
FC23" 30 O3DA 650 BSBW = MACSDEC_OUT_R2t ; Output to listing _ 
OOO'CF 07 D 651 DECL W*MACSGC_LIST_PTR ; Decrement Listing pointer 
Q0000'DF 2& 90 O3E 632 MOVB #*A/./,aQ*MACSGL_LIST_PTR ; and insert ‘.' ae 
08 1¢ A6 00 sé E 65 BBC #SUM_V_AUDIT,SUMB_FLAGS(R6),30$ ; Branch if audit trail is off 
OOOO'CF OC B6 08 AB 28 E 654 MOVC3 SUM_@ AUDDS(R6), - : copy audit string to listing Line 
F3 655 @SUA_O_AUDDS+4(R6) ,w*MAC$SAB_LST_END 
F 656 30$: 
05 F 657 RSB 


fae dD 3 
v04-000 
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ERROR TEXT HANDLING weer 8be BF iZa:SS FAXCHRS Mages v0s-00 ge a) 
F4 659 LSBTTL ERROR TEXT HANDLING 
FL 680 
F4 661: 44 
a2 666 >; FUNCTIONAL DESCRIPTION: 
FL 664 : THIS ROUTINE COPIES THE ERROR/WARN/PRINT TEXT INTO ETXBUF 
a 222 3 TO MAKE IT AVAILABLE FOR PASS 2 HANDLING. 
Fe bee fen 
O3F4 668 
FG 669 P2SETK:: 
50 g8 3c F4 670 MOVZWL (R8)+,RO ;GET THE LENGTH OF THE LINE 
Ou0O'CF «50. «DO OOS? 671 MOVL RO. W*MACSGL_ETXLEN :SET ITS LENGTH 
6 13 OBC 672 BLEG ‘TF LEQ NO LINE TO SPEAK OF 
QO0O'CF 68 «5028s ORE? MOVC3 RO, (R8),W*MACSAB_ETXBUF :COPY INTO ERROR TEXT BUFFER 
05 0404 674 10$: SB 


MACSP2ACT2 
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50 
0000° CF 
OOOO'CF 68 
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0000' CF 
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T PASSED TO PASS 2 5=SEP=-1984 MACRO.SRC CT2.MAR;1 (15) 
-SBTTL STORE MACRO SOURCE TEXT PASSED TO PASS 2 
£04 
; FUNCTIONAL DESCRIPTION: 
; THIS ROUTINE COPIES THE MACRO SOURCE LINE FROM THE INT. BUFFER 


; INTO THE MACRO LINE BUFFER, MACSAB_TMPBUF. 


P2SMACL:: 
BBCS or Leey MACL,(R11),10$ 31S THERE A MACRO LINE +7 } anid 
BSBB DUMP_MACRO SYES==COPY INTO LINE BUFFER 

10$: MOVZWL (RB)F,RO ;GET LENGTH OF MACRO LINE 


MOVL RO,W°MACSGL_MLIN_LEN SAVE LENGTH OF LINE | 
BLEQ :1F NULL LINE WE ARE DONE 
MOVC3 RO, (RB8),W*MACSAB_TMPBUF :COPY LINE INTO MACRO LINE BUFFER 
20$: RSB | 
p++ 
: FUNCTIONAL DESCRIPTION: 
: THIS ROUTINE WRITES THE CURRENT LISTING LINE, AND THEN 


COPIES THE MACRO LINE FROM THE MACRO BUFFER (MACSAB_ TMPBUF ) 
INTO THE LINE BUFFER 


DUMP_MACRO: 
BSBw 


MACSWRILST ;WRITE CURRENT LINE 
MOVL W*MACSGL_MLIN_LEN,RO GET LENGTH OF BACRO LINE 
MOVL RO,W*MACSGL _LINELN SET THE LINE LENGTH 
BLEQ 108 SIF LEQ DONE | 
MOVC3 RO,W*MACSAB_TMPBUF,- ‘COPY LINE INTO LINE BUFFER 


W*MACSAB_LIREBF 
10$: pecs #FLGSV_MACLTB,(R11),20$ ;FLAG MACRO TEXT IN BUFFER 


Selina See eS Be 


MACSP2ACT2 PASS 2 ACTION ROUTINES 16-SEP-1984 21: AX/VMS Macro v04-00 Page 20 
yOe 2000 FORCE NEW LINE, PRINT LITERAL, SUBTITLE -SEP=1984 §F: 25:98 ERACRO-SROSPSACT2SMAR: 1 . (fo) 
: ie «SBTTL FORCE NEW LINE, PRINT LITERAL, SUBTITLE 
4 £18 p++ 
" 4 ; FUNCTIONAL DESCRIPTION: 
4 ig : THIS ROUTINE FORCES A NEW LISTING LINE, AND PRESERVES 
‘ f 9 : THE PREVIOUS STATE OF THE LISTING FLAG MACS$GL_LIST_IT. 
4 7 ¢ -- 
04 7 
04 : 724 P2SFNEWL:: 
os ct D bf 725 PUSHL W*MACSGL_LIST_IT ;SAVE LISTING FLAG 
0 043C 726 BSBW MACSWRILST s;FORCE NEW LINE 
00008 ‘ ‘ae 043F 727 POPL W*MACSGL_LIST_IT RESTORE LISTING FLAG 
0444 728 RSB 
0445 729 
0445 730 ;++ 
pee? g 1 ; FUNCTIONAL DESCRIPTION: 
pete 738 ; THIS ROUTINE PRINTS A LITERAL. THE PC IS NOT AUGMENTED. 
0445 73s je 
0445 736 
0445 737 P2$PRIL:: 
0445 738 $VPUSH (RB) STACK THE VALUE TO PRINT 
85 05 0440 739 STL (R5)+ ‘KEEP RS POINTING TO TOP OF STACK 
044F 740 SMAC_LIST_BYTE #4 
0455 741 SDEC_PC #& ;DON'T INCREMENT PC THOUGH 
05 045A ee RSB 
0458 74 
0458 744 ;++ 
9438 ee ; FUNCTIONAL DESCRIPTION: 
0458 747; THIS ROUTINE COPIES THE SUBTITLE FROM THE INTERMEDIATE 
0458 748; BUFFER INTO THE SUBTITLE BUFFER, SO IT IS AVAILABLE FOR 
0458 749; LISTING PAGES. 
0458 750; 
0458 751 ;-- 
0458 P36 
045B 7535 P2$SBTTL:: 
50 88 9A 0458 754 MOVZBL (R8)+,R0 GET LENGTH OF SUBTITLE 
20 68 50 2c 045 755 MOVCS RO, (R8),#*A/ /,- ;COPY INTO THE SUBTITLE BUFFER 
28 0462 756 #LSTS$K tite E_Siz.- 
0000'CF Bee 757 W*MACSAB_SBT_SBTL 
05 0466 758 RSB 


ca 


MACSP2ACT2 PASS 2 ACTION ROUTINES SEP=1984 02:21:01 VAX/VMS Macro V04-00 Page 21 MAI 
- SET LONGUORD VALUE. SET AND CLEAR FLAGS S-SEP=1984 07:49;55 TRACKO SRTTPSAL SS MOR: 1 oe fy Tal 
rhe 768 -SBTTL SET LONGWORD VALUE, SET AND CLEAR FLAGS 
467 16¢ ++ 
467 163 t FUNCTIONAL DESCRIPTION: 
467 765: THIS ROUTINE IS CALLED TO SET THE VALUE CONTAINED IN 
467 766 : THE FIRST LONGWORD INTO THE LONGWORD POINTED TO BY 
467 767: THE SECOND LONGWORD. THIS IS USED FOR SETTING/CLEARING 
467 768: LONGWORD FLAGS. 
0467 769 : 
467 770 :-- 
0467 771 
467 17@ P2S$SETLONG:: 
0088 88 00 0467 77 MOVL (RB) +,a(RB) ;STORE THE LONGWORD 
05 0468 774 RSB TALL DONE 
046C 775 
046C 776 ;+4 
Reet aks ; FUNCTIONAL DESCRIPTION: 
046 779: THESE TWO ROUTINES, P2$SETFLAG AND POSCLRFLAG, SET AND 
046C 780 ; CLEAR FLAGS IN THE MACRO FLAGS WORD MACSGL_FLAGS. THE 
046C 781: ONE BYTE OF DATA IS THE FLAG NUMBER 10 SET7CLEAR. 
046C 78¢ ; 
046C 783 ;-- 
046C 784 
046C 785 P2$SETFLAG:: 
50 68 9A 046C 786 MOVZBL (R8),RO ;GET FLAG NUMBER 
00 68 SO £3 O46F 787 RO, (R11),.41 [SET THE FLAG 
05 0473 788 RSB 
0474 789 
0474 790 P2$CLRFLAG:: 
50 68 9A 0474 791 MOVZBL (RB),RO GET FLAG NUMBER 
00 68 50 €5 0477 198 BBCC RO, (R11),.41 'CLEAR THE FLAG 
05 0478 79 RSB 


MACSP2ACT2 PASS 2 ACTION ROUTINES 16-SEP-1984 02:21:01 AX/VMS Macro Vv04-00 Page 
1052000 PASS g ERROR PROCESSING -SEP-1984 $325 :9h EMACROSROSPSACT2-MAR: 1 . (48) 
47C §=795 -SBTTL PASS 2 ERROR PROCESSING 
47C¢ £36 
7¢ «= «679 3+¢ 
aot 198 ; FUNCTIONAL DESCRIPTION: 
47¢ 00 ; THIS ROUTINE PROCESSES ERRORS DETECTED DURING PASS 2. 
47¢ 01 ; IT SETS UP A TWO LONGWORD BLOCK AND CALLS THE ERROR 
47¢ Oe ; bROCESSOR. 
47C 0 : 
047¢ 4 ; INPUTS: 
047¢ 5; 
bare $: ; RO MESSAGE INDEX 
47C 07 ; 
047C 08 ;-- 
047C 09 
047C¢ 10 MACSPASS 2 ERR:: 
58 DD 047C 11 PUSHL R ;SAVE INT. BUFFER POINTER 
58 O004'CF 9€ O47e Bie MOVAB W*MACSGL_P2_ERRPT+4,R8 :POINT TO TEMP BUFFER 
68 D4 048 81 CLRL (RB) error c eginter 
78 50 dO 0485 814 MOVL RO, -(RB) ‘cet ERROR : 
& 77 10 04688 815 _.  BSBB PoseRR e's -  $PROCESS THE ERROR 
all 58 BEDO 048A 816 POPL [RESTORE POINTER 
05 048D 17 RSB 


—E 


e 
MACSP2ACT2 PASS 2 ACTION ROUTINES 16-SEP-1984 AX/VMS Mac ro v04-00 
hoes -PRINT DIRECTIVE PROCESSING mi iSety 7 bF:29 9 ERACRO SRCS P2ACT2.MAR;1 
' E <SBTTL .PRINT DIRECTIVE PROCESSING 
4BE ; 
‘ E > FUNCTIONAL DESCRIPTION: 
GBE ; THIS ROUTINE DOES THE PASS 2 PART OF .PRINT DIRECTIVE PROCESSING. 
48E ; IF THERE WAS AN EXPRESSION, THE EXPRESSION IS SET INTO THE 
4BE ; BUFFER, FOLLOWED BY THE STRING FOLLOWING THE SEMI-COLON IN 
48E ; HE .PRINT DIRECTIVE. THE W LINE I$ THEN OUTPUT TO THE 
4 E ; TERMINAL AND THE LISTING UF MOHERE 1S ONE). 
48E oo 
4BE 
48E P2SPRT:: 
FB6F' 30 O048E BSBW MACSWRILST ;WRITE LINE TO LISTING IF WE CAN 
0000' CF bp 491 PUSHL W*MACS$GL_LIST_LVL :SAVE LISTING LEVEL 
0000'CF 0064 BF C 0495 MOVZWL #100 y*AACSGLULIST_LVL TENSURE IT GETS LISTED 
OOEO 8F BB 049 PUSHR #*M<R5,R6,R7> TSAVE REGISTERS 
51 OQO00'CF 9E O4A MOVAB W*MAC$AB_LST_END,R1 :POINT TO THE START OF THE BUFFER 
¢6 4A BSBB_ ss GET_VAL_AND_TXT :SET VALUE AND TEXT INTO BUFFER 
53 00000000'8F C2 04A7 SUBL2 #MACSAB-LINEBF ,R3 FIGURE LENGTH OF LINE 
OOOO'CF 53 0 non VL 3,W*MACSGL_LINELN sSET FOR OUTPUT ROUTINES 
FBGA’ 4B BSBW MACSWRIT P| ‘WRITE LINE TO TERMINAL 
OOEO 8F BA 04B6 POPR #*M<R5,R67R7> SRESTORE REGISTERS 
0000'CF 8EDO O04BA POPL W*MAC$GL Lis! LVL TAND THE LISTING LEVEL 
Q0000'CF D4 O4BF CLRL W*MACSGL~VALUE ;ENSURE NO CARRY-OVER 
0000'CF  O00000000'BF CE MNEGL #MACSK Strste _SIZE,.W*MACSGL -LINELN PREVENT PRINTING 
io aie OF LINE IN LIsTING 


; : FUNCTIONAL DESCRIPTION: 


THIS ROUTINE GETS THE VALUE (IF ANY) SUPPLIED WITH 
: -ERROR/.WARN/.PRINT DIRECTIVES AND SETS IT INTO THE 
; BUFFER. 11 THEN STORES THE TEXT IN THE BUFFER. 
INPUTS: 

R1 BUFFER POINTER 

OUTPUTS: 

i R3 UPDATED POINTER 


GET_VAL_AND_TXT: 
Move 


2.09.00 00.00 09 CD Od Cd OP 30 OD OD 0d Cd Od CD Cd Cd OD CD Od Cd Cd OD CD CD OD OD OD CD CD Cd C9 OD OD OD CD CD OD CD CD CD. CD 0D 0D CD CD CD. CD CD CD CD CDODODCD 
MEAN O OD NAME WS OOO NAME WIN HO OD NAU EWN OO ODNAUES WN" OOONOUFWN—O”O <F 


SN NNN NIAAA AAA AAAA MUM BBB BEE BB WWW IIInonononononononuns 


BS OS oe oe ae ae ae ae ae eh ek ek kk ek tek kh eek ee ee ee 


COOOCDOOCOOCOCOSOOSOOCOSOOOCSOOSOOSOSOOOOSOOSO 


50 0000'CF 09 W“MACSGL_VALUE RO :GET THE EXPRESSION VALUE 
3 BEQL 10% SBRANCH IF NO EXPRESSION 
FB29' 30 BSBW  MACSDEC_OUT_L2x [OUTPUT EXPRESSION INTO BUFFER 
51 50 p60 MOVL SET uP DATED POINTER 
81 ¢0 9 MOVE #*A/ /,(R1)4 ; SEPA RATE BY A SPACE 
3. CS} 00 10$:  MOVL  RI1,R3 POSITION, POINTER INTO R3 
9000° F ; MOVL WARACSGL ETXLEN,R6 GTH OF TEXT LINE 
QO00'CF 56 A LOCC /,RE,W*MACSAB_ = jLOCATE, THE SEMI-COLON IN TEXT 
13 BEQL sot iif EQL NO SEMI-COLON--NO TEXT 
0 o7 DECL RO [DON'T COUNT THE SEMI-COLON 


menage 


63 


01 Al 


TIN 
PRO 


ESSING 


movCc3 
RSB 


"$SEp=1986 O4:49:95 EmacnossmeSpcactosman;1 == 89 (95), 


RO,1(R1),(R3) 


} 
| 
| 


COPY TEXT INTO OUTPUT BUFFER 
; DONE 


MAI 


MACSPZACT2 PASS 2 ACTION ROUTINES 16-SEP-1984 02:21:01 VAX/VMS Macro v04-00 Page 25 | MAC 
4052000 PPR ing DIRECTING PHOEESSING Breer obs 01:29:95 FMACKO SROTPSAL To tur: 1 . 38) vod 
4F 79 +4 
af 0 ; FUNCTIONAL DESCRIPTION: | 
4F ¢ ; THESE ROUTINES PROCESS ERRORS. THE TWO LONGWORDS OF DATA ARE 
‘fF 33 1) THE MESSAGE INDEX AND 2)THE LINE POINTER (POINTING TO THE ERROR) 
ete 
GF ; P2SINFO:: 
0000' CF D6 O4F INCL W*MACSGL_INFOCNT ; Count an information message 
OA 11 rt BRB ERR_COM ; Join common code 
4FB 30 P2$WRN:: 
OOOO'CF D6 O4FB 3¢ INCL  W*MACSGL_WARNCT :COUNT A WARNING 
06 «11 Our 93 BRB ERR_COM :JOIN COMMON CODE | 
328 95 P2SERR:: 
QOOO'CF 06 93 i 36 INCL  W*MACSGL_ERRCT :COUNT AN ERROR 
bag8 898 ERR_COM: 
0000' CF D 0305 899 PUSHL W*MACSGL_LIST_L 7SAVE CURRENT LISTING LEVEL 
O0O00'CF 0064 &F C 0509 900 MOVZWL #100 W°AKCSGL tyst LVL : ENSURE ERRORS GET LISTED 
12FE 8F 8B a318 301 PUSHR #*M<R1,R2,R3,R4,R5,RO,R7.R9,R12> ;SAVE REGISTERS 
baie $08 ; SAVE THE LINE/PAGE IN VIRTUAL MEMORY FOR PRINTING AT END 
50 O004'CF 9E€ 0514 905 MOVAB W*MACSGL_ERR_LIST+4,RO ;POINT TO ERROR LIST HEAD 
59 60 od0 0519 906 MOVL (RO),R9 ~ [GET LAST BLOCK J)” ERRORS ADDRESS 
56 08 AD 9E 051C 907 MOVAB BR9' R6 :POINT TO BOOKELPING. ,WORDS IN CASE IT EXISTS | 
FC BO «59 «OT 05 0 908 CMPL 9,a-4(RO) [DOES THE LIST EXIST? 
19 12 0524 909 0g t1F NEQ YES | 
03 6 11 : ALLOCATE TWO PAGES TO STORE LINES/PAGES ON 
FAD7" 30 $2 6 313 10s: BSBW MACSALL_2_PAGES ZALLOCATE TWO PAGES OF VM 
59 50 00 0 9 914 MOVL  RO,R9 :POINT TO THE BLOCK 
56 «(08 AD OSE COS 915 MOVAB 8(R9) *POINT R6 PAST LONGWORDS OF QUEUE LINKS 
0004'pF 69 O€ 03 6 916 INSQUE (R9) aN SMAcscL LERR_LIST+4 ; INSERT INTO THE ERR QUEUE 
66 10 A9 9E 05 917 MOVAB 16(R ) :SET POINTER TO FIR PREF 
OC AD OO7E BF 3C «(0539 918 MOVZWL WcchOeh~i6>/8>, 12(R9) SET COUNT OF LINES/PAGES IN THIS CHUNK 
OC Ao «6S «OOS53F) =: 919-208: TSTL 13(R9 :SEE IF ROOM IN THIS CHU 
E2 15 0542 920 BLEQ 1 y1F LEQ NO--ALLOCATE ON Ene 
59 66 DO 0544 921 MOVL (R6) :YES--GET POINTER TO FREE SPOT 
50 9900" CF 3¢ 347 9 é MOVZWL uemats by LST_LINE,RO ; Get Listing Line number 
50 48 4c 9 SHL #16,R0,R ; Shift to upper word (lower owrd 0) 
0B 68 ‘ E1 0550 924 BBC #FLGSV_ _UPDFIL,(R11),25$ ; Branch if file not being updated 
OO1C'CF ¢ €1 554 8925 BBC one vV~SRCUPD : gcencn if Line form source file | 
0 339 906 MACSGT_SCB+SUM_B FLAGS. 258 | 
50 OO00'CF B60 OSSA 9 MOV UnA Cou" LST_INST,RO ; Put insert number into low word 
51 O000'CF DO O55F 9 § 258: MOVL  W*MACSGL~SRCPAG,RI ZAND CURRENT PAGE NUMBER 
FC A 0 p 264 3 ; CHP RO,-4(R9F iL INE/PAGE ALREADY RECORDED? 
FB AD 1 D1 056A 931 CMPL R1,-8(R9) :MAYBE--WHAT ABOUT PAGE? 
13 36 9 ‘ BEQL 408 TIF EQL YES 
9 D ; 6 933 30$: MOVL R1,(R9)+ STORE PAGE NUMBER 
83 9 D 73-934 MOVL  RO,(R9)+ [AND LINE NUMBER 
6 D 576 S935 PVE = R9-, (RO) + 7SET BOINTER TO NEXT FREE 


i 3 
MACSP2ACE2 PASS 2 ACTION ROUTINES 16-SEP-1984 :21: AX/VMS Macro V04-00 Page 
vOL~000 PRINT DIRECTIVE. PROCESSING Beeb 1984 O159:45 LMACRO SRETPSAL SS MaRs 1 a 38) 
66 07 2 § 408 DECL (R6) ;DECREASE COUNT OF REMAINING SPACE 
78 8 ERR_COM_O: 
59 4 78 CLRL RG ; Assume not generated error or warning 
02 ‘ ; f re ay (RB) 3; is pact ity value zero? 
: No 
02 AB 0070 rt hy 5 arg BISw #<MACS_NORMAL@-16>,2(R8) ; Make it a MACRO error 
oN OBB bce 3s ee. me 
0084 8F 02 AB Bi Q58A 945 CMPW G58) .P<SUNS NORMAL E-16> ; Is it a SUM error? 
41 13 29 3e8 6s BEQL 0$ ; Yes if EQL 
908A BF 68 B1 33 $48 CMPW (RB) ,#<MACS_GENERRO*XFFFF> ; Is this a generated warning? 
0 13° 059 94 BEQL ; Yes EQL 
8818 8F 68 B61 0599 950 CMPW (RB) ,#<MACS_GENWRNG*XFFFF> ; of a generated error? | 
8 12 059 951 BNEQ 20$ ; No if NE 
9 D6 O5A 326 10$: INCL R9 : ae generated error/warnin 
oF 11 OSkd ger BRB 30$ ;AND SKIP PRINTING ON TERMINA 
5SA4 955 ; FIGURE COLUMN OF ERROR AND SAVE FOR LATER. MUST BE DONE NOW SINCE 
Bane 928 ; WRILST RE-INITIALIZES THE BUFFER. 
56 O000'CF 9E ay 958 20S: MOVAB W*MACSAB_LINEBF ,R6 ;POINT TO THE SOURCE BUFFER 
54 4 Beng 959 CLRL R :INIT COLUMN COUNT 
04 AB DS O5AB 960 TSTL 4(R8) ; Is there an error pointer? 
1D 13 OSA 961 BEQL 2 3; No if EQ 
09 86 91 O58 3c8 21$: CMPB (R6)+,#TAB 31S THIS A TAB? 
03 is 58 96 BNEQ 228 :1F NEQ NO 
54 07 C 585 964 BISL2 #7,R4 7YES=--SKIP TO NEXT TAB STOP 
54 06 0588 965 22$: INCL RG ;NEXT CHARACTER POSITION 
04 AB 56 =—iD1 5BA 966 CMPL R6,4(R8) ;UP TO THE ERROR YET? | 
FO 1F 38k 967 BLSSu 218 :1F LSSU NO | 
54 D7? O5C 968 DECL R4 ; Need 1 less space so that error 
05¢ 969 3 pointer is at this position 
00000084 8F 54 »D1 O5C 970 CMPL R4 #132 ; Over end of Line? 
02 19 05¢9 971 BLSS = 5 : No if LSS 
54 D4 Bate a58 25$ CLRL R4 ; Don't have error pointer 
FA30° Hi 5CD 36-974 BSBW MACSWRITE_TERM sWRITE LINE TO TERMINAL 
FA2D* 0 20 454 305 BSBW MACSWRILST sWRITE LINE TO LISTING FILE 
05D 977 SGETMSG_S (RB) ,W*MACSGL_LINEPT, - ; Get message text 
05D 978 L“MAC$GQ_LISTBFDS 
00000004 ‘EF 0000" ¢F C1 SEA 97 ADDL3 W*MACSGL_LINEPT, - ; Set pointer 
; 5F3 980 L“MACSGO-LISTBFOS+4,R3 
3 5 D 5F4 = 981 MOVL R3,R ;UPDATE POINTER 
10 59 ~«€C€ SF?) 9 § BLBC R9,35$ ; Branch if not generated error/warning 
51 6 DO OSFA 9 MOVL R6,R1 ;YES--SET POINTE 
4 Bp 5FD 3=—- 984 pyent r4 ; Protect the column count. 
FECB SFE 6 985 SBW == GET_VAL_AND_TXT :GET THE VALUE AND TEXT | 
23 BED O08 9 § Bo L r 
56 > 6 9 OVL R3,R6 :SET UPDATED POINTER 
1B Oi 6 6 9 : BRB 60$ :JOIN COMMON CODE 
2 " $96 : PAD LINE WITH SPACES UP TO THE POINT OF THE ERROR | 
55 56 00000000'8F C3 060A 992 $5$:  SUBL3  #MACSAB_LINEBF,R6,R5 § ; FIGURE CURRENT COLUMN 


m 3 
MACSP2ACT2 PASS 2 ACTION ROUTINES 16-SEP-1984 02:21: AX/VMS Macro V04-00 
yOs e080 PPR ing DIRECTING. PUOEESSING reer ibe BEES SE PAXCHRS Sages vOs~00 
4 Be 1 93 TSTL ; Is there to be an error pointer? 
F 1 94 BEQL 60s + No 
54 5 dD] 1 95 40$:  CMPL R5,R4 SHAVE WE PADDED ENOUGH? 
18 061 3% BGEG 50 SIF GEQ YES 
Be Q 90 0618 99 MOVB #*A/ /,(R6)+ tNO==PAD WITH SPACES 
D6 061 98 INCL RS ‘MOVE TO NEXT COLUMN 
FEO : 132? BRB 408 SCONTINUE TILL DONE 
6 1001 : NOW POINT TO ERROR WITH EXCLAMATION MARK 
86 21 99 622 1 8g §0$: MOVB #*A/!/,(R6)+ ;MARK THE ERROR 
50 56 00000000'8F t 1 04 60$:  SUBL3 #MAC$AB_LINEBF,R6,RO  :FIGURE LENGTH OF LINE 
Ov0O'CF 50 3 dD 1005 MOVZWL RO WiMAts GL_LINELN + SAVE FOR QUTPUT ROUT INES 
F9CB' 6 6 1006 BSBW MAC SUR TERM ; WRITE TO THE TERMINA 
F9CB" 635 1 BSBW WRITE TO LISTING 
12FE BF BA 0638 1008 80S POPR paneen RB. R4,R5,R6,R7. Rd R122 ; RESTORE REGISTERS 
0000'CF BEDO 063C 1009 OPL HMRI Re, LVL RESTORE LISTING LEVEL 
0000' ¢F D4 0641 1010 CLRL  W*MAC$GL {ist ‘ENSURE NO CARRY-OVER ON VALUE 


a ———— 


MAC 
v04 


MACSP2ACT2 PASS 2 ACTION ROUTINES 16-SEP-1984 02:21: AX/VMS Macro V04-00 Page 28 | 
V PRIN V NG -SEP- 249: . ACT2.MAR; ) 
O52 000 PRINT DIRECTIVE PROCESS! Breer 15Be Beiza:$s FAACNeS stages ,¥05-00.. oe (98 
$46 1013 ;++ | 
oe 1 i i; Functional description: 
big ! 18 3 This routine reports Source_update-merge errors 
gig 1 18 i-- | 
646 101 | 
646 1020 P2SSUME:: 
§9B7" 30 $08 1021 MACSGETLIN ; Get error Line into buffer 
56 0000'CF E 064 18 ¢ MOVAB W*MACSAB_LST_END,R6 ; Set pointer to start of Line 
58  0000'CF 64— 1 MOVZWL W*MACS$GL~LINELN,R8 : Get Line Length 
66 O000'CF $2 18 4 MOVC R »W*MACSAB_LINEBF , (R6) ; Copy to start of line 
8 C 6 1025 ADDL #2,R8 ; Insert two spaces. 
6 CO 065C 18 § ADDL RB,R6 3; Point to end of Line 
86 2020 BF 80 O6>F 1 MOV) #*A/ /,(R6)+4 
58 000000 OEE E 0664 1028 MOVAB MAC$GT_§CB,R8 : Get address of SUM control block 
66 1488 10 A8 28 0668 19 9 MOVC3 SUM Q FILESP+0(R8), - : Copy file specificaition | 
0671 1030 @SUA_O FILESP+4(R85,(R6)'; to Line | 
56 10 AB Ag 0671 1031 ADDW2 SUM O FILESP+0(R8),R6  ; Point to end of Line | 
50 56 00000000'8F 0675 1 3¢ SUBL3 #MACSAB_LINEBF,R6,RO  : Figure Length of Line 
0000' CF 50 C bere 103 MOVZWLE RO,W*MACSGL_LINELN 3 and save for qutput routines 
F97B' 30 682 1034 SBW = MACSWRITE_TERM : Write to termina 
F978" 30 0685 1035 BSBwW MACSWRTLST ; 
05 0688 1036 RSB 
0689 1037 
0689 1038 END 


and to Listing file 


MACSP2ACT2 PASS 2 ACTION ROUTINES 16-SEP-1984 02:21: AX/VMS Macro V04-00 Page | MAI 
Symbol table eet yi 34:25:98 ERACRO_SROSP ACT2.MAR; 1 . 3 1). v0 
AUDSK_SIZE = 4's bE FLGSM_MOREARG = 0000200 FLG$V_OBJXST = 8 00015 
BIT... = BORE Re FLGSM_MOREINP = ° 99 FLGSV_OPNDCHK = 0 bee 
BLNK = 000000 9 FLGSM_NEWPND = 4 FLG$V_OPRND = 0000000D 

YT_COM 00000065 R 04 FLGSM_NOREF = 01000000 FLGSV_OPTVFLIDX= 0000002C 
CHRSM_COMMA_CR = SRO TD FLGSM_NTYPEPC = 00000020 FLG$V_ORDLST = 00011 
CHRSM_ILL_CAR = 00000 +8 FLGSM_NULCHR == srt 10 FLG$V_P2 = QQ00000E 
CHRSM_NUM_BER = 0000001 FLGSM_OBJXST = 00200000 FLGSV_RPTIRP = Q000001C 
CHRSM_SPA_MSK = 00000001 FLGSM_OPNDCHK = 00000100 FLGSV_SEQFIL = 00000019 
CHRSM_SYM_CH1 = 00000008 FLGSM_OPRND = 00002000 FLGSV_SKAN = 4444 4 
CHRSM_SYM_CHR = 00000004 FLGSM_OPTVFLIDX= 00001000 FLG$V_SPECOP = 00000022 
CHRSM_SYM DLM = 0000000 FLGSM_ORDLST = Ht 444 FLGSV_SPLALL = QOOQOO1A 
CHRSV_COMMA CR = 0000000 FLGSM_P2 = tes FLGSV_STOIMF = S44 BN 
CHRSV-CVTLWE 39 =_: 00000061 FLGSM_RPTIRP = 10000000 FLGSV_SYM2COL = 0000002A 
CHRSV_ILL_CHR = 00000006 FLGSM_SEQFIL = 44 44h FLG$V_TOCFLG = 00000013 
CHRSV_NOC? = 0000007F FLGSM_SKAN = 00008000 FLGSV_UPAFLG = 00000024 
CHRSV_ BER = 00000004 FLGSM_SPECOP = 00000004 FLGSV_UPDFIL = 00000027 
CHRSV_SPA_MSK = 00000000 FLGSM_SPLALL = 04000000 presy-beee = 00000026 
CHRSV_SYM_CH1 = 00000003 FLGSM_STOIMF = 00040000 FLGSV_XCRF = 0000001F 
CHRSV_SYM_CHR = 00000002 FLGSM_SYM2COL = 00000400 GET_VAL_AND_TXT OQQO004CD R 04 
CHRSV-SYM_DLM = 00000001 FLGSM_TOCFLG = 00080000 HASASZ = 0000007F 

Nw 000001A6 R 04 FLGSM_UPAFLG = 00000010 WHEN = 00000020 

= 0000000D FLGSM_UPDFIL = 00000080 INP$K_BUFSIZ = QOQO003E8 

DUMP_MACRO 0000041C R 04 FLGSM_UPMARG = 00000040 INTSK_BUFSIZ = 000013F4 
EOMST_ABORT = 00000003 FLGSM_XCRF = 80000000 NT$K_BUFWRN = 00001390 
EOMSC_ERROR = 00000002 FLGSV_ALLCHR = 00000000 LSTSK_BUFSIZ = 00000086 
EOMSC_SUCCESS = 00000000 FLG$V_BOL = 00000001 ST$K-L_P_PAGE = 0000003C 
EOMSC"WARNING = 00000001 FLGSV_CHKLPND = 00000014 LSTSK-TITCE SIZ= 00000028 
ERR_COM 00000505 R 04 FLGSV_COMPEXPR = 0000000 MACSAB_ETXBOF eeneerer X 04 
ERR_COM_O 00000578 R 04 FLGS$V_CONT = 0000000 MACS$AB_LINEBF eeneeeee = X 04 
FF = 0000000C FLGS$V_CRF = 0000001E MAC$AB_LST_END seeeeeee X 04 
FLGSM_ALLCHR = 00000001 FLGSV_CRSEEN = 0 20 MACSAB_LST_LIN teeeeeee Xx (04 
FLGSM_ = 00000002 FLGSV_DATRPT = 0 04 MACSAB_LST_OP2 seeeeeee KX 04 
FLGSM_CHKLPND = 00100000 FLG$V_DBGOUT = 0 2 MACSAB_SBT_SBTL *eeeeeee xX 04 
FLGSM_COMPEXPR = 00000004 FLGSV_DLIMSTR = 0 oF MACSAB_SEQ-NUM ‘teenreeee xX 04 
FLGSM_CONT = 00000008 FLG$V_ENDMC z 0 05 MACS$AB_TMPBUF eeeeeeee =X 04 
FLGSM_C s 00000 FLGSV_ ~EVALEXPR = 0 06 MACSALC_2 PAGES *eeeeeee xX 04 
FLGSM_CRSEEN = 00000001 FLGS$SV_EXPOPT = 0 07 MACSAL_VACSTACK eeeeeeee xX 04 
FLGSM_DATRPT = 00000010 FLG$V_EXTERR = 0 30 MACSCHRBYT eeeeeeee = X 04 
FLGSM_DBGOUT = 00004000 FLGSV_EXTWRN == 6 31 MACSCK_BYT_TRUN ‘#eeeeee X 04 
FLGSM_DLIMSTR = 08000 FLGSV_FIRSTLN = 29 MACSCK-WRD-TRUN *eeeeeee X 04 
FLGSM_ENDMCH = 00000020 FLG$SV_IFSTAT = 0 17 MACSDEC_OUT_L2X teeeeeee Xx 04 
FLGSM_EVALEXPR = 00000040 FLG$V_IIF = 0 16 MACSDEC"OUT-ROL teeeeeee xX 04 
FLGSM_EX = 00080 FLGSV_INSERT = 0 08 MACSFORA_LIRENO 000003A3 RG 04 
FLGSM_EXTERR = 10000 FLG$V_IRPC = 8 1D MACSGETLIN eeeeeere =X = 04 
FLGSM_EXT = g 30 FLGSV-LEXOP 2 4 MACSGL_ERRCT eeeeeese§ X 04 
FLGSM_FIRSTLN = FLG$V“LSTXST = 0 MACSGL-ERR LIST seeeeeee xX 
FLGSM_IFS = 00800000 FLG$V_MAC2COL = 8 se MACSGL_ETXCEN eereeeee YX 
FLGSM_IIF = 00400000 FLGSV_MACL = MACSGL-INFOCNT teeeeeee xX 
FLGSM_INSERT = 100 FLG$V_MACLTB) == 0 18 MACS$GL_LINELN eeereeee 8 
FLGSA_IR = 00 FLGSV_MACTXT = 8 1 CSGLTLINENUM eetenere =X 
FLGSM_LEXOP = 00000002 FLGSV-MEBLST = C MACSGL_LINEPT eenenere =X 
FLGSA_ CSTXsT = 00000200 FLGSV-MOREARG = 0 R MACSGL-LIST_IT ‘eeneeee x 
FLGSM_MAC2COL = 00000800 FLGSV_MOREINP = MACSGL_LISTLVL eeeeetee =X 
FLGSM_MACL = 00000 BS FLGSV_NEWPND s A MACSGL“LIST_PTR eeeeeeee x 
FLGSA_ MACLTB = 0800000 FLGSV_NOREF = 38 MACSGL"MLIN-LEN eeeeeeee =X 
FLGSM_MACTXT = 10000 FLG$SV-NTYPEPC = ¢ MACSGL"P2_ERRPT 00000000 RG 
FLGSM_MEBLST = 00001000 FLGSV-NULCHR == 2 MACSGL"P2-LINE eeeeeeee xX 
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MACSP2ACT PASS 2 ACTION ROUTINES 16-SEP-1984 02:21: AX/VMS Macro V04-00 Page 31 
ae Crete Its e238 EMACRO.SROIPSACT2 MAR: 1 ’ 31) v0. 
= 

SYMSBaTOREN 0990008 TIRSEZSTOCRL. = QOOOOOTT 
SYMSF DEF = TIRSC_STO_RSB = 1D 
SYMSF _REL = 4 TIRSC_STO_RSW = if 
SYMSF_UNI = 000 B06 TIRSC_STO_RW = 2 
SYMSF _VALIDATE = 90000010 TIRSC_STO_SB = 14 
SYMSF _WEAK = 00000001 TIRSC_STO_SW = 15 
SYMS$K_BLKSIZ BP ORRUD TIRSC_STO_VPS = 8 0 
SYMSK_MAXLE = 0001F TIRSC_STO_W = 6 
SYMSK_TWOCOL = 00010 WwORD_COM 8 000 1 R 04 
SYMSL_LI 0 44 x1 = 0000003 
SYMS$L_VAL edt X2 = 00080000 
SYMSM_ABS = 10 

SYMSM_ASN = B292 100 

YMSM_CRF = 00002000 

SYMSM_DEBUG = 00000020 

YMSM_DEF = 00000001 
SYMSM_DELMAC § = 00000200 

SYMSM_EPT = 00000200 
SYMSM_EXTRN 2 00008 
SYMS$M_GLOBL = 00000004 
SYMSM_LOCAL = 00000040 
SYMSM_ODBG = 00000400 
SYMSM_REF = 00000080 
SYMSM_RELPSECT = 00800 
SYM$M_SUPR = 00004000 
SYMSM_WEAK = 00000002 
SYMSM_XCRF = 00001000 
SYMSV_ABS = 00000004 
SYMSV_ASN = 00000008 
SYMS$V_CRFO = 00000000 
SYMS$V_DEBUG = 00000005 
SYMSV_DEF = 00000000 
SYM$SV_DELMAC = 00000009 
SYMSV_EPT = 00000009 
SYMSV_EXTRN = 00000003 
SYM$V_GLOBL = 0000000 
SYM$V_LOCAL = 00000006 
SYM$V_OD = Q0000000A 
SYMSV_REF = 00000007 
SYM$V_RELPSECT = 000000 
SYM$V_SUPR = Q000000E 
SYMSV-XERF = 000000E 
= 

SYMS$W" FLAG 0000009 

SYSS$GETMSG eererere GX 04 

TAB = 009 009 

000005 
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PASS 2 ACTION ROUTINES i ot dt b+ 9 8 21:01 
Psect synopsis =SEP=1984 01:49:33 
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AX/VMS Ma 
MACRO.SRC 


PSECT name Allocation PSECT No. Attributes 
ABS 0888008 ( 8.) 0¢ QO.) PIC USR CON ABS _ LCL NOSHR NOEXE 
. BLANK . 000000 ( . 1¢( 1.) NOPIC USR CON REL LCL NOSHR 
SABSS Q0000001D (¢ 29.) ( ¢°3 PIC USR CON ABS LCL NOSHR- EXE 
MACSP2ACT2 a 00000008 ( a % ( -) NOPIC USR CON REL ~- LCL NOSHR NOEXE 
00000689 ( 1673.) 04 ¢( 4.) NOPIC USR CON REL GBL NOSHR- EXE 


eo ween ren en een esc e cose sy 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.04 00:00:01.91 
ponnene processing 106 00:00:00.43 ee RE: 
Pas 388 00:00:08.77 00:00:31.47 
Synbol table sort 0 00:00:00.97 00:00:02.18 
s2 198 00:00:02.19 00:00:06.77 
aeal table output 33 00:00:00.18 00:00:00.18 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 759 00:00:12.60 00:00:44.08 


The working set Limit was 1650 peers 

71307 bytes (140 pages) of virtual memory were used to buffer the intermediate cod 

There were 50 pages of symbol table space tg ey to hold 933 non-local and 58 local symbols. 
1038 source lines were read in Pass 1, produc cing <8 object records in Pass 2. 

49 pages of virtual memory were used to define 48 macros. 


Macro Library name 


MACSRO_ CODE _P2 


_$255$DUA28: (SHRLIBJSUM.MLB; 1 3 
“$255$DUA28: (MACRO.OBJ JMACRO.MLB; 1 12 
“$255$DUA28: SYSLIBJSTARLET. MLB; 2 ? 
TOTALS ‘all libraries) 22 


1098 GETS were required to define 22 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:P2ACT2/0BJ=O0BJ$:P2ACT2 MSRC$:P2ACT2/UPDATE=(ENH$:P2ACT2) +LI1B$:MACRO/LIB+SHRLIBS$:SUM/LIB 


§P2a 


RD 
RD 
RD 


v04-00 P 2 
CT2.MAR; 1 aoe Bh 
NOWRT NOVEC BYTE 


WRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC LONG 
NOWRT NOVEC LONG 


vO: 


NT CORPORATION 
D PROPRIETARY 
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